home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / r174chtr.zip / R-PCCHTR.MRG < prev    next >
Text File  |  1992-07-27  |  5KB  |  140 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\1740704\RBBS-PC.BAS to produce D:\SOURCE\RBBS-PC.BAS
  3. * D:\1740704\RBBS-PC.BAS:  Date 7-26-1992  Size 147632 bytes
  4. * ------------[ Created 07-27-1992 00:12:18 ]------------
  5. * REPLACING old line(s) by new
  6. 800 IF ZAdjustedSecurity THEN _
  7.        GOSUB 5135
  8.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  9.        ZMainUserFileIndex = ZUserFileIndex : _
  10.        ZOrigSec = ZUserSecLevel : _
  11.        ZUserSecSave = ZUserSecLevel : _
  12.        ZOrigUserName$ = ZActiveUserName$
  13.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  14.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _
  15.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  16.     GOSUB 9500
  17.     IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _
  18.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  19.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
  20.     PrevLastOn$ = ZLastDateTimeOn$
  21.     IF ZLocalUser THEN _
  22.        ZTalkToModemAt$ = "9600" : _
  23.        ZBaudParity$ = "9600 BPS,N,8,1" : _
  24.        ZModemInitBaud$ = "9600" : _
  25.        ZSnoop = ZTrue : _
  26.        ZLineFeeds = ZTrue
  27.     CALL SetCrLf
  28.     CALL SetPrompt
  29.     CALL XferType (2,ZTrue)
  30.     IF NOT ZSubBoard THEN _
  31.        BoardCheckDate$ = PrevLastOn$
  32.     CALL SetSysOp
  33.     IF ZWasA THEN _
  34.        ZActiveUserName$ = "SYSOP" : _
  35.        ZFirstName$ = "SysOp"
  36.     IF ZExitToDoors OR ZSubBoard THEN _
  37.        GOTO 815
  38.     GOSUB 465
  39.     IF (ZEightBit AND _
  40.        ZAutoDownDesired) OR _
  41.        ZAskID THEN _
  42.        CALL TestUser
  43.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  44.     CALL Talk (1,ZOutTxt$)
  45.     Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
  46.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
  47.                 ", operating at" + Temp$)
  48.     CALL SkipLine (1)
  49. * ------[ first line different ]------
  50.     IF ZMaxnodes > 1 THEN                                        'CHT021301
  51.        CALL LogNewForChat (ZMaxnodes)                            'CHT021301
  52.     END IF                                                       'CHT021301
  53.     Attempts = 0
  54.     ZWasZ$ = ZActiveUserName$ + _
  55.             " on at " + _
  56.             ZCurDate$ + _
  57.             ", " + _
  58.             ZTime$ + _
  59.             " from " + _
  60.             ZWasCI$ + _
  61.             "," + Temp$
  62.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
  63. '
  64. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  65. '
  66.      WasX$ = "{" + _
  67.           HashValue$ + _
  68.           "/" + _
  69.           ZIndivValue$ + _
  70.           "}"
  71.      IF LEN(ZWasZ$) < 65 THEN _
  72.         WasX = 65 _
  73.      ELSE WasX = LEN(ZWasZ$) + 2
  74.      MID$(ZWasNG$,WasX) = WasX$
  75.      CALL Printit ("  " + ZWasZ$)
  76.      IF ZNewUser THEN _
  77.         CALL UpdtCalr ("NEWUSER",1) : _
  78.         CALL Muzak (2)
  79. '
  80. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  81. '
  82.     IF ZEightBit AND ZAutoDownYes THEN _
  83.        ZOutTxt$ = CHR$(9) + _
  84.             ZReturnLineFeed$ + _
  85.             "You may use AUTODOWNLOADing!" : _
  86.        CALL RingCaller : _
  87.        CALL DelayTime(4)
  88. * REPLACING old line(s) by new
  89. 1230 CALL Line25
  90.      ZOutTxt$ = ZConfName$ + ":"
  91.      GOSUB 12978
  92.      CALL Talk (65,ZConfName$)
  93.      CALL DispTimeRemain (MinsRemaining)
  94.      IF ZMenuIndex = 6 THEN _
  95.         ZSubParm = 1 : _
  96.         CALL Library
  97. * ------[ first line different ]------
  98.         CALL CBCheck                                                    'CHT021301
  99.      CALL Talk (ZMenuIndex, ZOutTxt$)
  100. * REPLACING old line(s) by new
  101. 1235 ZWasZ$ = ZUserIn$(ZAnsIndex)
  102.      IF ZWasZ$ = SPACE$(LEN(ZWasZ$)) THEN _
  103.         GOTO 1230
  104. * ------[ first line different ]------
  105.      IF ZWasZ$ = "@" THEN _                                         'CHT021301
  106.         CALL CBChat(ZMaxnodes) : _                                  'CHT021301
  107.         GOSUB 5344 : _                                              'CHT021301
  108.         GOTO 1230 _                                                 'CHT021301
  109.      ELSE _                                                         'CHT021301
  110.      CALL SearchCmd (ZSubSection,ZFF)
  111.      IF ZFF > 0 THEN _
  112.         GOTO 1239
  113.      IF ZWasQ > 0 THEN _
  114.         CALL QuickTPut1 ("Unknown command <"+ZWasZ$+">")
  115.      CALL FlushKeys
  116.      GOTO 1230
  117. * REPLACING old line(s) by new
  118. 5410 CALL Toggle(-9)
  119.      GOSUB 43020
  120.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  121.      CALL Toggle(-5)
  122.      GOSUB 42810
  123.      CALL Toggle(-3)
  124.      CALL Toggle(-6)
  125.      CALL Toggle(-7)
  126.      CALL Toggle(-10)
  127.      CALL Toggle(-2)
  128.      CALL Toggle(-4)
  129.      CALL Toggle(-8)
  130.      CALL Toggle(-1)
  131. * ------[ first line different ]------
  132.      CALL Toggle(-11)                                                'CHT030501
  133.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  134.         IF ZUserSecLevel > ZTempExpiredSec THEN _
  135.            CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
  136.      RETURN
  137. '
  138. ' *****  B - COMMAND FROM UTILITY MENU (Bank Time)  ****
  139. '
  140.